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Aboutthis book 



This book contains simple games 
programs to play on a microcomputer 
They are written for use on ZX8 1 (with 
extra memory). ZX Spectrum. BBC. VIC 20. 
Dragon. One, TRS-80 and Apple The mam 
listing (or each program works on the 
ZX8 1 and lines which need changing for 
the other computers are marked with 
these symbols: 

* VIC and Pet 

* BBC 

■ TRS-80 
e Appta 

* ZX Spectrum 
V Dragon 
OOnc 

Every time you see the symbol for the 
computer you are using, look below for 
the corresponding line number with the 
same symbol and type that in instead- 
Running the programs 

When you have typed in the listing, check 
it carefully Remember that it is very easy 
to make mistakes when you are typing 
programs, even if you are quite 
experienced. To start the game, type RUN 
If the program doesn't work properly, it is 
quite likely that there is still a mistake in it 
somewhere, so LIST the program and 
check again. When the game is over, the 



computer will say something like BREAK 
IN 200. To play again, you have to type 
RUN. 

Experimenting with the 
programs 

There are suggestions for changes you 
can make to the programs throughout the 
book, but don't be afraid to experiment 
with changes of your own. As the 
programs are written to fit so many 
different computers, they often do not 
make use of the special features available 
on some computers. In particular they do 
not make any use of graphics, colour or 
sound. You could try rewriting the 
programs for your computer using its 
graphics, sound and any other special 
features it may have. 

Changing the speed 

Next to some of the games you will find 
instructions for changing the speed. You 
may well find you need to do this as these 
games depend on the speed of both your 
computer and your reactions You will 
almost certainly want to speed these 
games up after you have played them a 
few times in any case 



Computer Nightmare is based on an idea by Brendon Kavanagh 
Number Wizard. Ghost Guzzler and Ghost Maze were written by Colin Reynolds 
Spider-woman was written by Val Robinson. Gravedigger by Alan Ramsey 
Mad House by Keith Campbell and Seance by Chris Oxlade 

Illustrated by Rob McCaig 
Edited by Jenny Tyler 
Program editor: Chris Oxlade 

First published in 1983 by Usbome Publishing Lid. 20 Gamck Street. London WC2E 9BJ c 1963 
Usbome Publishing Ltd. 

The name Usbome and the device are Trade Marks ot Usbome Publishing Ltd 



Computer Nightmare 



You are a late-night computer addict and you've fallen asleep at the keyboard. 
Suddenly your computer comes alive and starts hurling numbers and abuse at you. 
To beat it you have to match the numbers as they appear on the screen. Your starting 
score of 300 is increased if you hit the right number and decreased if you don't. If you 
can get your score up to 500 the computer will give up and yon. win, but if it goes down 
to zero, you will become a slave to your computer. It 's a real nightmare! Can yon stay 
LsflsMw 



5 LET FS--0" 

• vna#io dim ceo. 23) 

20 LET S- 300 

30 LET Ct(l)-"M MICROS RULE I • 
40 LET Ce (2) •"•PEOPLE APE STUPI 
SO LET CS < 3 > - " *A ROBOT FOR PRES 
AO LET CS (4) 'COMPUTERS ARE GP1 
70 LET Ce<3)--»l'ri BETTER IWN 

a#eo cls 

•OV«44>VO LET N-INT <RND«9) ♦ 1 



JP1D»" 

«ESIDENT«- \— 

GREAT • " 
AN YOU'a- J 



How it works 

Wt» Mama« rmtmm for acora 



hsssi 



Choowiin 

pataituilf 



• '.VI 



HELP 



PRINT TAB < St I N I 

PRINT TAB<13>tS_J 

IP RND >C . 5 THEN GOTO ISO 

PRINT 

PRINT CS < I NT ( S / 1 OO > ♦ I > 
IF S<60 THEN PRINT " 
< THERE'S NO HOPE ) ■ 
IF S>440 THEN PRINT "URK • H 
FOR 1-1 TO to -l 
LET AS-INKEVS I™ 
IF HO" THEN LET FS-AS I 
NEXT I J 
LET S-S-IO 

IF VAL(FS)ON THEN GOTO 240 
LET SS+IO+WJ 



240 IF BXO THEN GOTO 270 ~ | 
2SO IF S>SOO THEN GOTO 2VO I 

2SO GOTO BO 

27C PRINT -YOU'RE NOW HV SLAVE " 
28© STOP 

290 PRINT "OK. YOU WIN <THIS T I HE > 
300 STOP A 



Pnatsff sad row KOTO'S) at 
diffSSSSj p-jlfili m SSI »crrrn 

Dock*** SSsSBSSi to «« to 1 54. 



dspsadisg onyess 



Looks (o aoo tf yoa ara ssvssssf 

key if res a». u atom i i rt 



acora by 10 



th* wrong hoy 

ptaUaajMQto 



Caocfca aosta lo aaa If yoa ksM 
or loot aadranpa down lo cod gi 
if yoa ka vo. 

Gooa back for aaalfcat tan. 



Thaabovt Uottas 



will work oa a ZXS 1 For 



4X>vaa#i'' Din ctcsi ^sa 

•SO HONE A 
4GO PRINT CHR*<147> ^ 
LET N-INT(RNO(l>*9)»| ■ 
VSJ90 LET N= INT <RND<0> aV) ♦ I ^^^^B 
•O*#120 IF RND ( I » X>.3 THEN GOTO 13ol 
VBI20 IF RND<0)>0.3 THEN GOTO I SO J 
*>OVBaS>170 FOR I- 1 TO 400 
•175 A*--- 

•IBO IF PEEK < - 1 6384 1 > 1 27 THEN GET 
•I BO LET A«-INKEYS<0> 
AIBO GET AS 
OIBO LET AS-KEYS 
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Number Wizard 





This is the game the Number Wizard plays with all hxi visitors. He conjures the 
numbers 1 to 9 in the air and then rolls two dice. You must give him two numbers 
which both appear in the air and, w hen added together, give the same total as the two 
numbers on the dice. Once you have used a number, its image disappears from the air 
and you cannot use it again. You win U all the —hers have di sap peared before all 
your turns are used up. (Y on get an extra turn for every double the Wizard throw*.) 
Yon are allowed to use zero as many times as you Like as one of your numbers. If you 
*t go, move on to the next turn by using two zeros. See how many times you can beat 

the Wizard. 




How theprograi 
works 



10 

20 



PRINT "Tr-E 
D1H A(10> — 



Mimut i> WIZARD" 



50 LET T-8« 



40 FOR 1-1 TO 
30 LET A(II-I 
60 NEXT I 
A#>70 CL9 

BO LET Afl)«l« 



Wis sp an array. A. 

Sets Um numb* r of goes allowed 



Loops round paftwa • 1 into 



90 LET V-O 

1 OO FOR 1-2 TO IO 
I IO IF Al I XX) THEN 
120 PRINT " ■ I 
I 30 LET V-V* 1 
140 GOTO thO 
130 PRINT I-II 
160 NEXT I 
170 PRINT 

ISO IF V-9 THEN GOTO 



GOTO ISO 



wo 



M*kn Hue Al 1/ always contain* I 
(this is so yoe, can nee as many 
times as yon like) 

V keeps const of sow many numbers 
have been used (Set to for start 1 



Loops round printing numbers If 
All) number has been used, so It 
leaves s spaee and odds I to V 



If aJJ 1 



ra hare been rased, 
to end 91 



TURNS LEFT" 



190 PRINT "YOU'VE "I Tl " 
■ a9f?00 LET C-INT<RMD«6*I » 
*OV[210 LET B."INT <RNDs6« I > 

220 PRINT "THE DICE THRO** IS "ICI", 

230 PRINT -WHAT ARE YOUR NUMBE RS ?" 

240 IF B-C THEN LET T-T*2 



Tolls yon bow 

Chooses n 
prints thorn 



ML 
for dies throw 



If throw wi 
extra 90 



230 LET T-T-l 
2hO IF T<0 THEN GOTO 330 
270 INPUT N 
2BO INPUT M 

290 IF H>9 OR N>9 THEN PRINT 

"TOO BIG - TRY AGAIN* 
300 IF M>9 OR N>9 THEN GOTO ?><_] 

310 IF H»N< >B*C OR A(N*l)-0 OR 
A(M+1 ) -O THEN GOTO 70 



i« doable 



hy 1, checks Tu not 



zero 



320 LET A(N* 
330 LET A<N+ 
340 GOTO 70 
350 PRINT "THE 
360 STOP 
370 PRINT "YOU 
380 STOP 



1 >-0 "1 
I )-0 J 



Oofs two numbers from yon aad 
chocks they are v slid 

If they don't add up or M of them 
has been *n»d, gone hack for 



If numbers are OK. the 1 1 in their 
spaces In A ars replaced with 0* to 
show they've! 



MI7ARD MON' 



HON" 



The above listing will work on a ZXBI. For 
other computers make trx-enease* below 



• 70 HOME 

A 70 PRINT CHRf.C147> 
*0a\*20O LET C- INT (RND < 1 > s6*l 1 

V«200 LET C- INT (RN0<0> S6» I > 
a}Qa\#210 LSI B'INT (RND4 1 ) o6*l > 

V021O LET B-INT (RMD(O) s6*l ) 



Perhaps yoa caa work out a way 
of mikiaq the computer 00 back 
for another game automatically 
and boild up s record o f how 
ssaay times you've woa sad IsaL 
Too coaid also work oat a 
terrible falo for players who lose 
loo many times 



Ghost Guzzler 





4 



The ghosts in this game are numbers rushing across the screen. To catch them, you 
activate your ghost guzzler by pressing key X. but it only works when the number on 
it is the same as that of the attacking ghost. You can increase the guzzler's number by 
nteaelng key M (when it gets to 9, it goes back to again). If you fail to guzzle a ghost, 
it will snatch away one of your lives (shown as / top left of the screen ). See how good 
you are at guzzling ghosts. 



IO PRINT "GHOST GUZZLER' 
20 LET B-O 
30 LET V-O 

40 LET L-3' 



How the program works 



Set score and your number lo 
fa r H a r t of gam* 



ol-liw'loJ- 



LET N-INT (RND» 1 > 



60 LET I-l 

▲#/0 CLS 

80 FOR J-l TO L 
90 PRINT -/"» 
10O NEXT J 
1 10 PRINT 
Ol 20 PRINT TAfi(I)|N| rAB<18>|-i-|V 



Ota* BiBbet between and 9 for 
1 he ghoat 

SUrti counter for distance ghoat can 
(ravel before It raechee you. 



Loop which prints 
(op left of the 



ghoat number. berTiarV 
at appropriate poeirlona on 



ThiB im a good gam* for adding 
1 to Try adding rob- 
1 for something blood- 

hallfaand 
something tuiiabl* for ghoau to 
make when they are guzzled 



If A* 

• OAwl3© LET 84-INKEY4 

i4o if w-x- T^H 60T0 

ISO IF 8»--M- THEM LET 



22© L 
Y-V*l Ij 



Looks to see if r«i we pressing « 
key If X ri« yoa ACtiralrd ghost 
. punier* compslei jump* down 
program to chock if you are allowed 
to. If M M Increases yow atmlwr by I . 



140 IF V-IO THEN LET Y-O 



lead* yow aamber back to zero 

itt mrt w 10. 



170 LET 1-1*1 
ISO IF I IB THEN GOTO 70 



•J 



r If 



ghost 

haven't 
back to 



Uinext 



190 LET L-L-l 



2O0 IF LX> THEN GOTO SO 

210 GOTO 270 

IF YON THEN GOTO 170 
PRINT "GOT IT- 
PRINT "•*••••- 
LET 5«S»(18-IJ 
GOTO SO 
CL8 



If barrier reached, yoa too* a lift. 

Corn back fotaootherghoM If yoa 
> lives left. 



26© 
*•;>/<» 

2B0 
2TO 
3©0 
310 

32© 
33© 
340 



■YOUR GHOST GUZZLING' 
•SCORE IS "|B 



PRINT 
PRINT 
PRINT 

PRINT "ANOTHER GO 7 
(PRESS Y OR N) " 
INPUT A« 

IF A*-"Y" THEN RUN 
IF AA--N" THFN STOP 




i If yow Bomber •gulled 
ghost's when yoa gn Triad If sot goes 
back for another ghost 



The •bore Usttag will work oa ■ ZX8 I For 
other computers make the changes below 

•OA#SO LET N— INT (RND < 1 ) *10) 
VBSO LET N-INT (RND(O) «10) 

• 70.27© HOW 

A 70.27© PRINT CHR»(147> 
O 12© PRINT SPC < I > INJ9PC 
<18-I> | -! "I Y 
,■▲•[123 FOR K-l TO SO 
*° V |J27 NEXT K 

• 128 LET »#-•- 
IF PEEK (-16384) >127 
THEN GET 84 
LET B4-INKEY4(0) 

rr m 

LET 84-KEV4 
FOR k-1 TO 3©0 
NEXT K 



i K> 



• 13© 

a i jo 
Ol3© 
IAwf243 

1247 



V 




Spiderwoman 

E* k ! It's Spiderwoman.' 
Yon might be lucky, she's 1a a good mood today. If yon can guess the letter she Is 
thinking of, quickly enough, she will set you free . If not, you'll probably get turned 

into a fly. 

To find the letter, give Spiderwoman a word and she will tell you whether or not her 

letter Is in it. 



\ /\ \ >r \ 




10 LET O-O 
S.8 20 CLS 



How it works 



*' 40 



50 
60 
70 
80 
90 

too 

1 10 
120 
1 •'-< 
140 
ISO 
160 

2<78a#1 70 

• i M 

190 
200 
210 
220 
0VBA#230 

* 240 
290 

S8260 

270 

JM 

290 
ZOO 

310 
320 
330 
340 

330 
360 
370 
380 
390 
4GO 
410 
420 



LET T-1MT <RND*26«38 
LET TMCWKT) 
PRINT "SPIDERWOHAN 
PRINT "MAS CHOSEN 
PRINT 

PRINT "TRY A WORD 
PRINT 
PRINT 
INPUT W« 

LET O-G* 1 

LET L-LEN(htf»> 
IF L<4 OR L>8 THEN OOTI 
LET F-O 
FOR 1-1 TO L 
IET AS-WSU TO I) 
IF A»-T» THEN LET F-l 
NEXT I 

IF F-l THEN GOTO 2BO 
PRINT 



TO 70 J 



i • Binbti , convarta tl to i 
iHMi *nd p««» i« u» Ti 



kti 



Koe pe count of ■— bar of asee 
Checka If word too long or ahorl 



Checks through you; word lo »*« iJ 
letter U there If II to goea to 280 



PRINT "IT'S NOT IN THAT WORD* 
FOR A-l TO 20 
NEXT A 

IF 8>I3 THEN GOTO 



4(KJ. 



■DO 
N»- 
R» 
•N- 



VOU WANT TO GUESS 7 



MM GOTO 230 



CLS 

GOTO 70 

PRINT "YES - IT'S ONE OF THOS£- 
PRINT 
PRINT 
(Y OR 
INPUT 
IF R*-' 
PRINT 
PRINT ' 
THEN 7 " 
INPUT 8* 

IF 8SOTS THEN GOTO 
PRINT "OK - YOU CAN 
PRINT "(THIS T I ME ) " 
STOP 

PRINT "YOU ARE TOO 
PRINT "YOU ARE NOW 
STOP 



'WHAT IS YOUR SUE 88 



4IO 

GO- 



LATE " 
A FLY" 



if letter Hi fa— din 
word 

Dalay loof>ao yo« can ra*d aga. 
Ends provraJB i/yo«i have had 15 goea. 

Clean acreea. Go*« back for 
•aether word 



Prists If letter I oaad la yoar word. 
Aiks if yoa want to <jue*a If "ao*. 
goes back for another word. 



Prtalsi 
whether i 



i waa right or aot 



The abov* listing wlli work on a ZX& I For 
i the change* below 



• 20 HOME 

620 PRINT CHR4U47) 
130 LET T-INT IRNDa26*6S> 
O**4*30 LET T-INT <RND< I ) •26*63l 
VB30 LET T-INT (RND(O) •26*63) 
■6*»|I70 LET AS-HID* <w». 1 . i> 
• 0V l230 FOR A-l TO SOO 
•260 HONE 

4260 PRINT CHR*(I47> 



Experiments to try 

Sat what happens if yon change the 1 S in 
line 250 to a smaller nnambar. What about 
changing the 4 and the 8 in line 140? 

Change the game 

Spiderwomaa ia bored. She want* you to 
adjust the program to do the following: 
If her letter Is In your word, you are 
allowed rwo guesses ai it. but li you guess 
wrong you forfeit five goe*. Can you do tt? 




Gravedigger 

It's dark and windy - not the kind of 
night to bo loot in a graveyard, but that's 
where yon are. Yon have until midnight 
to find your way out. Skeletons lark in 
the shadows waiting to scare you to 
death should yon come too close. Too 
can dig holes to help keep them away 
but digging is tiring work and yon 
cannot manage more than five in one 
game. Ton have to bo careful not to fall 
down the boles yon have dug too. 

Grave stones (marked - ) and the 
walls of the graveyard (marked :) block 
your way . The holes you dig are marked 
0, you are * and the skeletons are X. See 
if you can escape. 



How the program works 

50-90 rill the array A with empty 
110 

m m 

180-260 
270-310 

320-390 

400-420 
440-640 
650-740 



i the number of holes 
allowed. 

Code the symbols to be used. 
Put the walls into the array. 
Ch e ess random positions for the 

giS TSStOQSS. 

Set starling positions lor you *i\d 
the skeletons. 

Pat skeletons into the array. 
Calculates your new position. 
Looks to see what lem new 
position. If nothing, mores to it. 
Print various ends to the game. 
Print graveyard. 
Put • hole la the array if you 
wantons. 
Move ■keletons 



50 FOR 



60 

o 



FOR 
LET 
SO NEXT 
90 NEXT 
10O LET 
HO LET 
120 LET 
ISO LET 
140 LET 
ISO LET 
160 LET 
U.7Q LET 



IO CLS 

20 PRINT "GRAVE DIGGER- 
JO DIM AMO,20) 
40 DIM Bib) 

1*1 TO 10 
J-l TO 20 
A(l, J>-COD€<- ") 
J 
I 

M-O 
X-3 

Y-CODE<"»-> 
B-CODE ("♦-) 
OCODE<-0-> 
D-CODE < "I ") 
E-CODE (-X-) 
/-CODEC -) 
IBO FOR J-l TO 10 
190 LET A(J.1>-D 
200 LET A<J,2O>-0 
210 NEXT J 
220 FOR J-l TO 20 
230 LET A( I , J)-D 
240 LET AdO.JI-D 
2SO NEXT J 
260 LET A(9,20)-Z 
270 FOR J-l TO 20 
va4.a)[?B0 LET F-INT(RND«7*2> 
*C>L?90 LET 6~INT(RMD»lS+3> 
30O LET A(F,6>-B 
NEXT J 
«-2 
N-2 

B(2>-19 
B(4>-I9 
B<6>-19 
B(I>-4 
B(3>-3 
B(S>-2 
40O FOR J-l TO 3 STEP 2 
410 LET A(B<J> ,B<J*1> »-€ 
420 NEXT J 
430 GOSU6 B60 
440 PRINT 

430 PRINT "ENTER MOVE "IN 
*bO PRINT "(YOU CAN GO N.3. 
E OR W»" 
INPUT «♦ 

IF AO--N- THEN GOTO S30 
IF AO--E- THEN GOTO 360 
IF AO- -9- THEN SOTO 600 



310 
520 LET 
330 LET 
340 LET 
3SO LET 
360 LET 
370 LET 
380 LET 
390 LET 





510 
920 
330 
340 
330 
360 
370 
'.H" 

390 
600 
610 

6 20 
6 jo 

640 
AM 
MO 

670 
<SHo 
690 
700 
710 
720 
730 
740 

rao 
roo 

770 
780 



790 
BOO 
810 

820 
830 

840 

BSO 
B60 
* •670 

BBO 

poo 

910 
920 
930 
940 



IF A4--W" ThfcN GOTO 630 

OOTO 470 

LET T-N-l 

LET U-H 

GOTO 6SO 

LET T-N 

LET U-H+I 

IF A(T,U>-Z AND H-19 THEN 

GOTO 770 

GOTO 630 

LET T-N*l 

LET U-tl 

GOTO 630 

LET T-N 

LET u-n-i 

IF A<T.U>«Z THEN GOTO 7IO 

IF A<T,U>-D OR A<T,U)-B 

THEN GOTO 690 

IF A(T,U)-C THEN OOTO BOO 

IF A(T,U>«E THEN GOTO B30 

PRINT "THAT MAY'S BLOCKED" 

GOTO 440 

LET A<N,H>-Z 

LET N-T 

LET M-U 

LET A<N,H>-V 

GOSUB 1030 

GOTO 400 

PRINT "YOU'RE FREE»»" 
PRINT "YOUR PERFORMANCE 
RATING IS " ; INT < (60-W) /60« 
<96*X> UN- 
STOP 

PRINT -YOU'VE FALLEN INTO" 
PRINT "ONE OF YOUR OWN 
HOLES- 
STOP 

PRINT "URK • YOU'VE BEEN 
SCARED" 

PRINT "TO DEATH BY A 
SKELETON- 
STOP 

LET A<N,H>-V 
CLS 

LET R-N 
LET S-H 
LET W-W+l 
IF W>60 
FOR I-I 
FOR J-t 



990 NEXT J 
960 PRINT 
970 NEXT I 
980 RETURN 

990 PRINT "THE CLOCK'S STRUCK " 
IOOO PRINT "HIDNIGHT" 
1010 PRINT "AGHHHHH ' ' 
1020 STOP 

1030 IF X-O THEN GOTO lllO 
1040 PRINT 

10SO PRINT "WOULD YOU LIKE 
TO DIG" 

1060 PRINT "A HOLE < Y OR N> " 
1070 INPUT &• 

1080 IF B*< >'Y- THEN GOTO I I 10 
1090 LET X-X-l 
1100 LET A(R,S)-C 
1 I lO FOR J"l TO 3 
1120 LET T-B(J) 
1 ISO LET U-BU+1) 
1 140 IF ACT.U*1)-Y 
IF A«T,U-|)«Y 
IF ACT-1,U)»Y 
IF AIT*I,U)-Y 
IF A*--W- THEN GOTO 1 300 
IF AS--S- AND A < T* 1 , U) -Z 
THEN GOTO 1270 
IF A4V--N" AND A<T-|,U>-Z 
THEN GOTO 1280 
1210 IF A»--E" AND A(T,U+1)-Z 
AND H U THEN GOTO 1240 
IF A»-"E" AND A<T, U-M-Z 
THEN GOTO 1230 
OOTO 1300 

LET BCJ*1 >-B<J*l )*2 
LET B<J*1 >-B<J«l > I 
GOTO 1290 
LET B<J>-B<J>*2 
12BO LET B(J>-B<J>-I 
1290 LET A<T,U>-Z 
1300 NEXT J 
1310 RETURN 



I ISO 
1 160 
1 170 
HBO 
U90 

1200 



1220 

1230 
1240 
1230 
1260 
1270 



STEP 2 



Off N GOTO 830 
THEN GOTO 830 
THEN OOTO B30 
THEN GOTO 830 



THEN GOTO 990 
TO IO 

TO 20 



PRINT CHR4<A< I f J) ) I 




win wwfcaaaZXJl. Tor 



•10,870 HOME 
AI0.870 PRINT CHR«<|47> 
tOviA* ... ) 20-170 CHANGE CODE TO ABC 
*0a>«280,290 CHANGE RND TO RND < 1 > 
>,290 CHANGE PND TO RND(O) 




Mad House 



You're trapped in a weird house where everything moves including the walls. If the 
doorways would line up, even for a moment, you could make a dash for freedom. 
You've found a console which appears to control some of the movements in the house. 
Keys X and C make the doorway nearest to you (top of the screen) change direction. 
Keys N and M have the same effect on the doorway furthest from you There doaaal 
seem to be any way of controlling the centre doorway. 

As you frantically wrestle with the knobs on the console, you can hear footsteps 
pounding down the corridor behind you The number top left of the screen shows their 
progress towards you. If you can't escape before the phantom footsteps catch up with 



you 



aaggghhhhh! 



<3> J 



DIfl P 
OIK S 
CLS 
PRINT 'WW 
LET LS-- " 
LET M-31 
FOR 1-1 TO 
LET LS-LS*" 
NEXT I 



If your computer has 
sssad, see If yon can add 
md effects forth* 
(step* and for the end 
otlhrgam- if you fall to 
eveape 



W 
• ■ 



How it works 

Sou up 2 Ml One is f or tha 
position <P> of etch doorway. I ha 
other If for the direction (S) ia which 
each la moving 

Make a row of stars the width iW> of 
MM *c»e*n and putt if in LS 



CT-240 

s 

8 

1-1 TO 
PU 



(1»-1 ] 
<3)--l _J- 




•3 



> <• 



*#24Q 
*2SO 



LET 
LET 
LET 
FOR 
LET 
NEXT 
CLS 

FOR 1-3 TO IS STEP 
PRINT AT I. OIL* 
PRINT AT I,P< 1/3) I 
NEXT I 
PRINT AT O.OICTI- " 

IF CT<0 THEN GOTO 4SO 

IF PC1)-P<2> AND P<2»-P(3> 
THEN GOTO 390 
LET ZSMNrEY* 
IF ZS-" THEN GOTO 
IF ZS--X- THEN LET 
IF ZS--C- THEN LET 
IF ZS--N" THEN LET 
IF ZS--M- I«N LET 
IF CT/2S-INT <CT/23> 



tea* footstep counter to its starting 
valae. 

5*ti direction 'il doorway movement 
af Mart of game 

Cot* random inrtinij positions for 
the three doorways. 



3O0 

8<1> — I 
S<1 »-l 
8<3?»-l 
8<3>-l 
THEN LE 
P(2)-P<2) «INT (RND*20>-10 
LET CT-CT-1 



1_ 



Pnnts wall* and doorway* 

Print* footstep counter lop left. 

Checks if footstep* have reached 
yrra Ifsn.f—initii in In 



If you've won 



Checks keyboard for instruction* 
Quaes* direction of movement, at 

r.byd 



3IO 

320 LET P<l)-P(l>eS<l> 

330 LET P<3>-P<3>*8<3> 

340 FOR I- 1 TO 3 

JSO IF PIIKI THEN LET P<I>-1 

360 IF P4IIXM-4) THEN LET P(I>-fs»-4 

370 NEXT I 

ZOO GOTO I 70 



Movrt centrr doorway every 25 
footstep*. 



Decreases footstep 



esorwsy positions If 
doorway reaches edge of icua, 
r keeps it there 



Coo* back for 



39Q LET L-PUMJ 
*400 FOR I ■ I TO IS 
7BASMIO PRINT AT I ,L t "M" 
4 20 NEXT 1 

430 PRINT " VOU ARE FREE I!" 



440 STOP 

4SO PRINT "TOO LATE 

HAVE STOPPED. * 
46© PRINT -ARGeSSH I • 1 
470 STOP 



THE FOOT STEPS 




Prints yonr dash through doorway* 
with 



Prints 




Th# Usttef m ih. Ml will work on • ZXtl Tot 
oth«r computer* make the** ekiagw , 



KM 

AO LET 
140 II* 



O OBIC 



14 

I SO 
I ■ 
2IO 
240 

4IO 



LET P« I >-INT (RMDM >«<M-4> *I I 
PLOT l,I.L» 
PLOT PI I/3» . !,"> <• 
PLOT O.O.STR»<CT> - 
i i | /»•«*• 

If CT/23-IHTICT/23I T»CN 
PLOT L, 

#» I 2 > -P < 7 » ♦ I NT I RM> < » > • TO ) - 1 



I BO 

2IO 
240 

300 



• APPLE 




P( I >* INI (HMO 1 1 )»IIMI > ♦ I 
PRINT TABIO, DILI 
PRINT TAB IP < l/3> . I I I -> <* 
PRINT TARIO.O) |CT| • * 
LET Z*-INKEY«I IO) 
ir CT/25-INTICT/2S) THE* LET 
PI2I-PI2I .INT tRMOll>*20»-IO 

PRINT lAH'l . I > 1 *« 



<I>«<W-4>>.| 



WIC-ZO 

SO PRINT CMR*(I47> 
bO LET W-21 
140 LET P 1 1 » * INT II 
PRINT CMR4II47) 
FOR I-l TO S 
FOR J-l TO 3 
PRINI 
HE I T J 

PRINT LEFT»<L»,P<1> l|"> 
R10HT«<LR, IIO-PIII » > 
PRINT Offit, « \tt ICT i • " 
OET 

IP CT/23-INMCT/23) THEN If l 
P<2»«*P<2» »INI«MNOi 1 1 «20> -IO 
PRINT (3*rtl|»l 
PRINT I »«<•"!•/ 
PRINT TA»(L I -M- 



LET Plll-INI « 



Ml*' 



VTROUI 

PRINT L« 
VTARIII 
»4TAR<p<I/3> > 
PRINT "> < * 

</TAR< I I iMTARI I I I PRINT CT|- - 

ii r-ft» ' \t,'M*. \;' wn Gf T /• 

IP CT/23-INTICT/73I THEN LET 
P 12 » -P « 2> • INT HMD 1 1 1 «20» - IO 
VTAR<|> 

PRINT TR»CLI"R- 

TRS-0O 
*0 LET N-63 
I40 LET P<l>-RMD<*0> 

POP 1-2 TO 12 STEP 9 
PR I NTR I I • *»4 1 ,Lt> 

PRINTR<|»*4|P<<I*3>/S>>."> <" 
PRINTRO.CT 

IP CT/23-INT ICT/231 THEN LET 
PI2>"P<2> W M PI20I-10 
PRINT«<I»*4*L».-R' 

D W RaOil 

30,70,00.90 DCLI M 
140 LET P< I )*4N)(28I 
170 FOR 1-2 TO 12 STEP 3 
ISO PRINTR32*l,STRINO«<PI <l*3»/3> t. 
-•-)!-•> <«"|STR|ND*<20-P 
<<I*3)/3I .'•■II 
190 DELETE 
210 PRINTRO.CT 

300 IP CT/23*IMT(CT/23> THEN LET 

P(2)-P(2>«RN0(20>-10 
• IO PRINTRl I*32*L) . "H" 

WtalMBpaMlfyoaciuagvUM \ 
number in Um 100? ~7 

II ytru take lb* mtnaa «ign oul of \ 
liM 120. what h*pp*»? 
Ch*j»oe th« two ZSflta Line 300 to J 

IMtlWTHIIiMr And Me If it Blktl X 

«■* difference 



Ghost Maze 



It's a creepy sort of place. The identical dark corridors don't seem to 90 anywhere. It 
nught even be haunted. You can only see straight in front of you, and you can only 
move in the direction in which you are facing. You can turn left or right, but this won't 
actually move you anywhere, It will hut show you another view. All you have to do is 
find the cross which marks the way out. Your position is marked with a Y and walls 
are marked * . 

Gulp! It is haunted. Ghosts are shown by a letter G. If you get right up next to one 
you will be whisked away to another part of the maze, not knowing where you are or 
in which direction you are facing. Here are the keys you can use: X moves you forward, 
N turns you to the left (through 90 ), M turns you to the right (through 90 ) 



IO DIM E<70> — 
20 DIM V*<4,3>- 



30 DIM F(3) 

40 LET w*—-" 

30 LET MS-hWM-- OOOOOOOOOO- " 
bO LET MS-WS+'OI 1 1 10O1 10" 
70 LET MS-WS+'OOIOOI 1 lOO" 
80 LET w*-w»*"001 10101 10" 
90 LET WS-wS^'OI I0100100" 
10O LET w*»wS*"0Ol 1111 lOO" 
MO LET WS-wSt" 0000009000- _ 
120 FOR 1-1 TO 70 - 
■ 30 LET E(I)-VAL<w*(I TO I)) 
140 NEXT I 

ISO LET 8—1 



160 LET Q-12* 



> area) array > for the 



Wta *p a mini tjnd within th* m*x 
which Is tho suit ef tt that too c as 



Stora#o spaeo for iUU to All com row 



tho data for I ho oum 

or O wall; I nil 



■rroy.t. 
KOTod to 1 for 



70 LET X-INT (RNDoSO) *10 



1 BO IF E < X X > 1 THEN GOTO I 70 



190 GOSUB B^O 



210 IF X-G*K> OR X-G-IO THEN GOTO 1 70 
220 IF X-B*l OR X-G-l THEN GOTO 170 
230 LET H-H+l 

240 IF H-3 THEN GOSUB 8AO 



If mto p najrfao. i 



Cho wi n dwctMo for yoo to taco i 
•tort of SSSSX*. 

, On CSS If top to port lo a ghoot aiH 
if SB m*m yoo to mow pUco. 

Ineroooooaaabor of aaoooa Toa*To 



J2y> GOSUB 390 

YZbO LET AS-INKEYS ~~\ 

270 IF AS--- THEN GOTO 260 

2B0 IF AS--M" THEN LET D-D+1 

290 IF AS- "N" THEN LET D-D- I 

30O IF 0-9 THEN LET D-l 

310 IF D-O THEN LET D-4 _ 

320 IF AS< > " X " THEN GOTO 21Q 

1' D ] AND E(X- 10)00 THEN LET X-X- 

340 IF D-3 AND E(X*10)00 THEN LET X-X* 

3SO IF D-2 AND EdMlOO THEN LET X-X*l 

3AO IF D-4 AND F (X I XX) THEN LET X-X-l 

370 IF E(X»-V THEN GOTO 93Q 

380 GOTO 210 



■ Od i i Owj fc-rotioo to toro 
•▼ory 5 amoroo. 

Gooo to ■oh-rosttao which p 
aoctloa of swsa too cu mo. 



TOlOOOf 



X-X-10 sssvofarwmrd. 

•X* 1 — Chock* yoo c*» 

-X-l 



•if you don I 



Chocks if too ha vo reached exit 

Co«« back far BOXtOkOTO If too 
ha too -L 



Add noises 




390 

«oo 

A4M10 

420 
430 
440 
4SO 
460 
470 
480 
490 

soo 

310 
320 
330 
340 
3SO 
360 
370 

seo 

390 
600 
61 O 
620 
630 
640 
6SO 

670 
^HO 
690 

700 
7IO 
720 
730 
740 
730 
760 
770 
790 

rvo 

IK". 

SIO 

B20 
830 

MO 




FOR 1-1 TO 4 
LET T-I-l 
GOTO 380*40*0 
LET F<I >-X-IO»T*l 
LET F<2)-X-10aT $OVIi 
LET F (3) -X-lOoT-l 
60T0 370 

LET F(1>-X*10*T *C4 
LET F<2)-X*T ^ 
LET F(3)-X-lO»T A 
SOTO 370 jfl 
LET F<l)-X*10oT-l M 
LET F<2)-X«10*T M 
LET F < 3 > ■ X ♦ lOa T ♦ 1 
GOTO 370 

LET F<l)-X-T-IO W 
LET F«2I-X-T W 
LET FC3>-X-T»10 

FOR J-l TO Z 

IF FfJXl OR F<J)>69 THEN GOTO 
IF E<F<J))-0 THEN LET V% ( I , .1 - 
IF E<F(J>>-1 THEN LET V* < I , J > • 
IF E<F(J>>«9 THEN LET V* < I , J > - 
IF E<F<JM-2 THEN LET V* < I . J > - 

NEXT J I 

NEXT I 

LET V0U,2>-V 
CLS 
PRINT 

P^IMT"»«»» OHDST HAZE 
PRINT 

PRINT -FORWARD X" 
PR INT -TURN RIGHT »" 
PRINT "TURN LEFT N" 
FOR I-! TO 3 
PRINT 
NEXT I 

FOR 1-4 TO 1 STEP-I 
LET P»--" 

FOR J-3 TO I STEP -I 
LET P»«P4*V«<I. J) 
NEXT J 

PRINT TAB(7>»P« 
NEXT 1 

RETURN — 
LET V4(I.J>--#- 



• - 

#260 
A 260 
0260 
■•410 
«J660 
A660 
■•B70 
ZPG/O 



IF PEEK <- 16384) >I27 

THEN GET A* 

LET A4V-INKEY«<0) 

GET At 

LET A»-KEY« 

ON D GOTO 420,460,300,340 

NOW 

PRINT CHR»<147) 

LET G-INT<KND<1>*30>«10 

LET G- INT (RNDIO) «30> *10 



G40 



wbich caJcaiataa: 



b) which character* to pat la 



STEP -I 



Make the maze bigger 

Thia mh to baaad oa a grid 
OMtalateff ft aQaarao. To auk* It 
Hfpar yoo aaad to cfcaaaja tko 
fnllnwlap toM, raplarina N with the 
— I tat l»f 1» mi you warn u your 
•ow grid, (N moat b* a multiple of 
10.) 

1 Roplaco 70 with yoo/ namb*t. N 

Ml -110 AddextraliaoeoflaaadOaat 

55. 65 ate. ao thatf the total aaatbar of 

character* in the grid ta N 

120 Replace 70 withN 

1 70 and 870: Replace 50 with H 20 

500 Replace 69 with N I 



trz*j uuiu ow 

860 LET E (G)-l 

©70 LET G* I N T ( RND*50 ) ♦ 1 

880 IF EI6IOI THEN GOTO 870 

890 LET E(B)-2 

9UO LET H-O 

«»10 LET fi-S»l 

920 RETURN 

930 PRINT -YOU HAVE E SCAPE D" 
940 PRINT "IN -;S»3*H;- HOVES' 
930 STOP 



3 



'Maaaage for and of < 



15 



Answers to puzzles 

Her* are some suggested solutions to the puzzle* set in this book. You may fill That 
your answer* are different but if they work on your computer this doesn 't matter. 
Check, though, that your answer* are as nest and straightforward as the ones given 



Computer Nightmare (page 3) 



IfOVlSTK) LET N*-Q*»S < INT (RND»?A*36> > I C¥ sls*)ere»*SS»SSJM< 

IOO PRINT TABOHN* ~ tkm n iis*.ls*lll<*fSI 



220 IF FIOW THEN BOTO 240 
LET 8-8+ IO* (CODE <N*>-3e> 



tkuAfor 



190 LET N*-CHR*< INT (RND*26*65> ) 
*04*>90 LET N*-CHR*< INT (RND( l>a26+65> I 
V«VO LET N*»CHR*( INT (RNO(O) «2/.*<»5) ) 
• 230 LET S-8* 1 (CODE <N*I -fc3> 
*OVUA*T230 LET S-S*10* tABC <N*> -63) 



Number Wizard (page 5) 




5 LET L- 

6 LET 



-4 

M-Oj 



LET LI* I 
360 BOTO 390 
3BO LET WS>1 
390 PRINT 

400 PRINT 'THE WIZARD YOU 
410 PRINT 

420 PRINT - -|L| ■ 

430 FOR O-l TO IOOO "| 
440 NEXT O / -J- 

430 BOTO 30 



ihmt of limn you 



J- 





piderwoman (page 9) 



S LET NB-O- 



333 LET NG-NG* 1 



360 IF 6*-T* THEN BOTO 370 
362 PRINT "NO! THAT'S 
364 LET B-«*3 

366 IF NO- 2 THEN BOTO 410 

366 BOTO 230 




Usborne Computer Books 

Usborne Computer Books are colourful, straightforward andeasy-to- 
understand guides to the world of home computing for beginners of all ages 

Usborne Guide to Computers A colourful introduction to the world of 
computers. "Without question the best general introduction to computing I have 
ever seen. "Personal Computer World 

Understanding the Micro A beginner's guide to microcomputers, how to use 
them and how they work. "This introduction to the subject seems to get 
everything right. "Guardian 

Computer Programming A simple introduction to BASIC for absolute 
beginners. ". . . lucid and entertaining . . "Guardian 

Computer and Video Games All about electronic games and how they work, 
with expert's tips on how to win. "The ideal book to convert the arcade games 
freak to real computing. "Computing Today 

Computer Spacegames, Computer Battlegames Listings to run on the ZX81 , 
Spectrum, BBC, TRS-80, Apple, VIC 20 and PET. "Highly recommended to 
anyone of any age. "Computing Today 

Practical Things to do with a Microcomputer Lois of programs to run and a 
robot to build which will work with most micros. 

Computer Jargon An illustrated guidetoall thejargon. 

Computer Graphics Superbly illustrated introduction to computer graphics 
with programs and a graphics conversion chart for most micros. 

Write Your Own Adventure Programs Step-by-step guide to writing adventure 
games programs, with lots of expert's tips. 



Machine Code for Beginners A really simple 
introduction to machine code for 
the Z80 and 6502. 

Better BASIC A beginner's guide to writing 
programs in BASIC. 

InsidetheChip Asimpleandcolourful 
account of how the chip works and what 
it can do. 
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